      IMPLICIT REAL*8 (A-H, L-Z)
      real*8 porb,m,N,N1,dt,a(100,100)
      open(4,file='hmxb',status='unknown')
      open(1001,file='hmxb.out',status='unknown')            
      do i = 1,73
      do j = 1,36
      read(4,*)m,porb,N
      
      a(i,j) = N
      if(m.ge.2.0.and.m.le.20.0)then            
      n1= n+n1
      write(*,*) N1
      endif
      
      enddo
      enddo
      do i = 1,36
      do j = 1,73
      N = a(j,i)
      if(j.lt.73)then
      write(1001,11,advance="no") N
      elseif(j.eq.73)then
      write(1001,11) N      
      endif
      enddo
      enddo
     
11    format(100E10.2)
      end      
